object FormPrint: TFormPrint Left = 271 Top = 177 BorderStyle = bsDialog Caption = 'Impression' ClientHeight = 417 ClientWidth = 542 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 14 object SC_Line5: TSC_Line Left = 0 Top = 383 Width = 542 Height = 34 BorderShape = bsTopLine Align = alBottom end object ListPrint: TListBox Left = 11 Top = 11 Width = 104 Height = 362 Cursor = crHandPoint Style = lbOwnerDrawFixed Color = clWhite Ctl3D = True Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ItemHeight = 16 Items.Strings = ( 'Listing' 'Enveloppes' 'Etiquettes') ParentCtl3D = False ParentFont = False TabOrder = 0 OnClick = ListPrintClick end object PageControl1: TPageControl Left = 117 Top = 9 Width = 421 Height = 370 ActivePage = Tab1 Style = tsFlatButtons TabOrder = 1 object Tab1: TTabSheet Caption = 'Listing' TabVisible = False object LabelName: TLabel Left = 24 Top = 0 Width = 3 Height = 14 end object RadioPrint: TRadioGroup Left = 0 Top = 18 Width = 409 Height = 274 ItemIndex = 0 Items.Strings = ( 'Imprimer la fiche en cours compl'#232'te' 'Imprimer la fiche en cours domicile' 'Imprimer la fiche en cours bureau' 'Imprimer toutes les fiches compl'#232'tes' 'Imprimer toutes les fiches domicile' 'Imprimer toutes les fiches bureau' 'Imprimer les n'#176' de t'#233'l'#233'phones uniquement') TabOrder = 1 OnClick = RadioPrintClick end object CheckMemo: TCheckBox Left = 8 Top = 299 Width = 108 Height = 17 Cursor = crHandPoint Caption = 'Imprimer le m'#233'mo' TabOrder = 2 end object UpDownList: TUpDown Left = 0 Top = 0 Width = 19 Height = 16 Cursor = crHandPoint Hint = 'Changer de fiche en cours' Min = 0 ParentShowHint = False Position = 0 ShowHint = True TabOrder = 0 Thousands = False Wrap = True OnClick = UpDownListClick end object CheckSexe: TCheckBox Left = 8 Top = 338 Width = 104 Height = 17 Caption = 'Imprimer le sexe' Checked = True State = cbChecked TabOrder = 3 end object CheckPhoto: TCheckBox Left = 8 Top = 318 Width = 107 Height = 17 Caption = 'Imprimer la photo' TabOrder = 4 end end object Tab2: TTabSheet Caption = 'Enveloppe' ImageIndex = 1 TabVisible = False object Label1: TLabel Left = 0 Top = 6 Width = 27 Height = 14 Caption = 'Noms' Transparent = True end object Label2: TLabel Left = 273 Top = 0 Width = 3 Height = 14 Transparent = True end object Label12: TLabel Left = 276 Top = 307 Width = 66 Height = 14 Caption = 'Taille du texte' end object PaintBoxEXP: TPaintBox Left = 279 Top = 252 Width = 130 Height = 49 OnPaint = PaintBoxEXPPaint end object SpeedBTous: TSpeedButton Left = 66 Top = 1 Width = 50 Height = 18 Cursor = crHandPoint Hint = 'Tout s'#233'lectionner' Caption = 'Tous' ParentShowHint = False ShowHint = True Transparent = False OnClick = SpeedBTousClick end object SpeedBAucun: TSpeedButton Left = 116 Top = 1 Width = 50 Height = 18 Cursor = crHandPoint Hint = 'D'#233's'#233'lectionner tout' Caption = 'Aucun' ParentShowHint = False ShowHint = True Transparent = False OnClick = SpeedBAucunClick end object SpeedBOpen: TSpeedButton Left = 166 Top = 1 Width = 50 Height = 18 Cursor = crHandPoint Hint = 'Ouvrir une s'#233'lection existante' Caption = 'Ouvrir' ParentShowHint = False ShowHint = True Transparent = False OnClick = SpeedBOpenClick end object SpeedBSave: TSpeedButton Left = 216 Top = 1 Width = 50 Height = 18 Cursor = crHandPoint Hint = 'Enregistrer la s'#233'lection' Caption = 'Sauver' ParentShowHint = False ShowHint = True Transparent = False OnClick = SpeedBSaveClick end object Label5: TLabel Left = 0 Top = 342 Width = 91 Height = 14 Caption = 'Choisir l'#39'exp'#233'diteur' end object RadioEnveloppe: TRadioGroup Left = 273 Top = 15 Width = 139 Height = 67 Caption = ' Type d'#39'adresse ' ItemIndex = 0 Items.Strings = ( 'Domicile' 'Bureau') TabOrder = 1 end object CheckPays: TCheckBox Left = 273 Top = 87 Width = 136 Height = 17 Cursor = crHandPoint Caption = 'Imprimer le nom du pays' TabOrder = 2 end object GroupBox1: TGroupBox Left = 273 Top = 105 Width = 139 Height = 125 Caption = ' Options ' TabOrder = 3 object Label3: TLabel Left = 69 Top = 33 Width = 65 Height = 14 Caption = 'Gauche (mm)' end object Label4: TLabel Left = 69 Top = 54 Width = 49 Height = 14 Caption = 'Haut (mm)' end object Label8: TLabel Left = 9 Top = 15 Width = 87 Height = 14 Caption = 'D'#233'calage du texte' end object Label9: TLabel Left = 9 Top = 78 Width = 66 Height = 14 Caption = 'Taille du texte' end object EditX: TEdit Left = 18 Top = 30 Width = 31 Height = 22 Ctl3D = True MaxLength = 3 ParentCtl3D = False ReadOnly = True TabOrder = 0 Text = '0' end object EditY: TEdit Left = 18 Top = 53 Width = 31 Height = 22 Ctl3D = True MaxLength = 3 ParentCtl3D = False ReadOnly = True TabOrder = 1 Text = '0' end object UpDownX: TUpDown Left = 49 Top = 30 Width = 15 Height = 22 Cursor = crHandPoint Associate = EditX Min = -100 Position = 0 TabOrder = 2 Wrap = False end object UpDownY: TUpDown Left = 49 Top = 53 Width = 15 Height = 22 Cursor = crHandPoint Associate = EditY Min = -100 Position = 0 TabOrder = 3 Wrap = False end object EditPolice: TEdit Left = 18 Top = 93 Width = 31 Height = 22 Ctl3D = True MaxLength = 2 ParentCtl3D = False ReadOnly = True TabOrder = 4 Text = '12' end object UpDownPolice: TUpDown Left = 49 Top = 93 Width = 15 Height = 22 Cursor = crHandPoint Associate = EditPolice Min = 8 Max = 36 Position = 12 TabOrder = 5 Wrap = False end end object CheckExpediteur: TCheckBox Left = 0 Top = 233 Width = 172 Height = 17 Cursor = crHandPoint Caption = 'Inclure l'#39'adresse de l'#39'exp'#233'diteur' TabOrder = 4 OnClick = PaintBoxEXPPaint end object MemoExpediteur: TMemo Left = 0 Top = 252 Width = 268 Height = 84 Ctl3D = True Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentCtl3D = False ParentFont = False ScrollBars = ssVertical TabOrder = 6 WordWrap = False end object EditEXP: TEdit Left = 345 Top = 304 Width = 31 Height = 22 Ctl3D = True MaxLength = 2 ParentCtl3D = False ReadOnly = True TabOrder = 7 Text = '10' end object UpDownPoliceExp: TUpDown Left = 376 Top = 304 Width = 15 Height = 22 Cursor = crHandPoint Associate = EditEXP Min = 6 Max = 36 Position = 10 TabOrder = 8 Wrap = False OnClick = UpDownPoliceExpClick end object ListViewEnv: TListView Left = 0 Top = 21 Width = 268 Height = 209 Cursor = crHandPoint Columns = < item Caption = 'Nom' Width = 140 end item Caption = 'Pr'#233'nom' Width = 105 end> HideSelection = False MultiSelect = True ReadOnly = True RowSelect = True ShowColumnHeaders = False SmallImages = MainFormMira.ImageList1 TabOrder = 0 ViewStyle = vsReport end object CheckInvertName: TCheckBox Left = 177 Top = 233 Width = 172 Height = 17 Cursor = crHandPoint Caption = 'Inverser le nom et le pr'#233'nom' Checked = True State = cbChecked TabOrder = 5 OnClick = CheckPaysEtClick end object ComboExp: TComboBox Left = 96 Top = 338 Width = 172 Height = 22 Cursor = crHandPoint Style = csDropDownList ItemHeight = 14 TabOrder = 9 OnClick = ComboExpClick end end object Tab3: TTabSheet Caption = 'Etiquettes' ImageIndex = 2 TabVisible = False object LabelNameEt: TLabel Left = 24 Top = 0 Width = 3 Height = 14 end object Label10: TLabel Left = 0 Top = 147 Width = 136 Height = 14 Caption = 'Format d'#39#233'tiquettes en sortie' end object Label11: TLabel Left = 291 Top = 165 Width = 66 Height = 14 Caption = 'Taille du texte' end object UpDownEt: TUpDown Left = 0 Top = 0 Width = 19 Height = 16 Cursor = crHandPoint Hint = 'Changer de fiche en cours' Min = 0 ParentShowHint = False Position = 0 ShowHint = True TabOrder = 0 Thousands = False Wrap = True OnClick = UpDownEtClick end object MemoEt: TMemo Left = 0 Top = 19 Width = 409 Height = 123 Ctl3D = True Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentCtl3D = False ParentFont = False ScrollBars = ssVertical TabOrder = 1 WordWrap = False end object RadioEt: TRadioGroup Left = 0 Top = 189 Width = 166 Height = 91 Caption = ' Type d'#39'adresse ' ItemIndex = 0 Items.Strings = ( 'Domicile' 'Bureau') TabOrder = 3 OnClick = RadioEtClick end object CheckPaysEt: TCheckBox Left = 0 Top = 286 Width = 138 Height = 17 Cursor = crHandPoint Caption = 'Imprimer le nom du pays' TabOrder = 7 OnClick = CheckPaysEtClick end object EditPoliceET: TEdit Left = 363 Top = 162 Width = 31 Height = 22 Ctl3D = True MaxLength = 2 ParentCtl3D = False ReadOnly = True TabOrder = 4 Text = '10' end object UpDownPoliceET: TUpDown Left = 394 Top = 162 Width = 15 Height = 22 Cursor = crHandPoint Associate = EditPoliceET Min = 6 Max = 36 Position = 10 TabOrder = 5 Wrap = False OnClick = UpDownPoliceETClick end object GroupBox3: TGroupBox Left = 171 Top = 189 Width = 238 Height = 136 Caption = ' Imprimer ' TabOrder = 6 object Label6: TLabel Left = 30 Top = 82 Width = 92 Height = 14 Caption = 'Ligne .....................' end object Label7: TLabel Left = 30 Top = 62 Width = 93 Height = 14 Caption = 'Colonne .................' end object RadioPage: TRadioButton Left = 11 Top = 18 Width = 151 Height = 17 Caption = 'Page d'#39#233'tiquettes identiques' Checked = True TabOrder = 0 TabStop = True OnClick = RadioPageClick end object RadioUn: TRadioButton Left = 11 Top = 46 Width = 88 Height = 17 Caption = 'Une '#233'tiquette' TabOrder = 1 OnClick = RadioUnClick end object EditColoneET: TEdit Left = 126 Top = 57 Width = 22 Height = 22 Ctl3D = True Enabled = False MaxLength = 2 ParentCtl3D = False ReadOnly = True TabOrder = 2 Text = '1' end object UpDownColoneET: TUpDown Left = 148 Top = 57 Width = 15 Height = 22 Cursor = crHandPoint Associate = EditColoneET Enabled = False Min = 1 Max = 50 Position = 1 TabOrder = 3 Wrap = False end object EditLigneET: TEdit Left = 126 Top = 78 Width = 22 Height = 22 Ctl3D = True Enabled = False MaxLength = 2 ParentCtl3D = False ReadOnly = True TabOrder = 4 Text = '1' end object UpDownLigneET: TUpDown Left = 148 Top = 78 Width = 15 Height = 22 Cursor = crHandPoint Associate = EditLigneET Enabled = False Min = 1 Max = 50 Position = 1 TabOrder = 5 Wrap = False end object RadioPubli: TRadioButton Left = 11 Top = 110 Width = 88 Height = 17 Caption = 'Publipostage' TabOrder = 6 OnClick = RadioPubliClick end end object ComboType: TComboBox Left = 0 Top = 162 Width = 286 Height = 22 Style = csDropDownList ItemHeight = 14 Sorted = True TabOrder = 2 OnClick = ComboTypeClick end object CustomButtonNewET: TButton Left = 0 Top = 335 Width = 99 Height = 22 Hint = '|Cr'#233'er une nouvelle '#233'tiquette' Caption = '&Nouvelle '#233'tiquette' ParentShowHint = False ShowHint = True TabOrder = 8 OnClick = CustomButtonNewETClick end object CustomButtonModiET: TButton Left = 102 Top = 335 Width = 99 Height = 22 Hint = '|Modifier cette '#233'tiquette' Caption = '&Modifier l'#39#233'tiquette' ParentShowHint = False ShowHint = True TabOrder = 9 OnClick = CustomButtonModiETClick end object CustomButtonVoirET: TButton Left = 204 Top = 335 Width = 99 Height = 22 Hint = '|Aper'#231'u de l'#39#233'tiquette' Caption = '&Aper'#231'u' Enabled = False ParentShowHint = False ShowHint = True TabOrder = 10 OnClick = CustomButtonVoirETClick end object CustomButtonSuppET: TButton Left = 306 Top = 335 Width = 103 Height = 22 Hint = '|Supprimer cette '#233'tiquette' Caption = '&Supprimer l'#39#233'tiquette' ParentShowHint = False ShowHint = True TabOrder = 11 OnClick = CustomButtonSuppETClick end end end object ButtonConfigure: TButton Left = 113 Top = 389 Width = 75 Height = 22 Hint = '|Configurer l'#39'imprimante' Caption = '&Configurer' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = CustomConfigureClick end object ButtonPrint: TButton Left = 197 Top = 389 Width = 75 Height = 22 Hint = '|Lancer l'#39'impression' Caption = '&Imprimer' Default = True ParentShowHint = False ShowHint = True TabOrder = 3 OnClick = ButtonPrintClick end object ButtonClose: TButton Left = 365 Top = 389 Width = 75 Height = 22 Hint = '|Fermer la fiche' Cancel = True Caption = '&Fermer' ModalResult = 2 ParentShowHint = False ShowHint = True TabOrder = 4 end object ButtonHelp: TButton Left = 281 Top = 389 Width = 75 Height = 22 Caption = 'Ai&de' TabOrder = 5 OnClick = ButtonHelpClick end end